;Edit *.GRD files
;
(defun c:edaln ( / )
  (setq edfil (getfiled "Edit Alignment File" (getvar"dwgprefix") "aln" 4))
  (if (= 1 edfil)
    (setq edstr "UNNAMED.aln")
    (setq edstr edfil)
  );IF
  (STARTAPP "NOTEPAD" (STRCAT "\"" edstr "\""))
);defun
